home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Plus Special 24
/
AMIGAplus Sonderheft 24 (2000)(Falke)(DE)[!].iso
/
PublicDomain
/
Anwendungen
/
MT-RechnungIII
/
Rexx
/
XXRechÜbZus_NW2.inbrexx
< prev
next >
Wrap
Text File
|
1998-10-31
|
17KB
|
518 lines
/*
** Druck-, Vorschau, Sichern der Rechnungsübersicht Netto Währung2
** $VER: XXRechÜberZus_NW2.inbrexx V1.03 (31.10.98)
*/
PARSE ARG ARexxPort;
ADDRESS VALUE ARexxPort;
OPTIONS RESULTS;
/*********************************************************************/
/* Druckerunabhängige Standard-ANSI-Escape-Sequenzen und ASCII-Zeich.*/
/* Siehe auch Workbench-Handbuch (bei OS3.1: Kapitel 9.6.1) */
/*********************************************************************/
CR = '0d'x; /* Wagenrücklauf */
LF = '0a'x; /* Zeilenvorschub */
FF = '0c'x; /* Seitenvorschub */
TAB = '09'x; /* Tabulator */
ESC = '1b'x; /* ESC */
aRIS = ESC || "c"; /* Drucker zurücksetzen */
aRIN = ESC || "#1"; /* Drucker initialisieren */
aIND = ESC || "D"; /* Zeilenvorschub */
aNEL = ESC || "E"; /* Wagenruecklauf + */
aRI = ESC || "M"; /* umgekehrter Zeilenvors. */
aSGR0 = ESC || "[0m"; /* Normaler Zeichensatz */
aSGR3 = ESC || "[3m"; /* Kursivdruck EIN */
aSGR23 = ESC || "[23m"; /* Kursivdruck AUS */
aSGR4 = ESC || "[4m"; /* Unterstreichung EIN */
aSGR24 = ESC || "[24m"; /* Unterstreichung AUS */
aSGR1 = ESC || "[1m"; /* Fettdruck EIN */
aSGR22 = ESC || "[22m"; /* Fettdruck AUS */
aSFC_0 = ESC || "[30m"; /* Farbe Schrift: Schwarz */
aSFC_1 = ESC || "[31m"; /* Farbe Schrift: Rot */
aSFC_2 = ESC || "[32m"; /* Farbe Schrift: Grün */
aSFC_3 = ESC || "[33m"; /* Farbe Schrift: Gelb */
aSFC_4 = ESC || "[34m"; /* Farbe Schrift: Violett */
aSFC_5 = ESC || "[35m"; /* Farbe Schrift: Magenta */
aSFC_6 = ESC || "[36m"; /* Farbe Schrift: Zyan */
aSFC_7 = ESC || "[37m"; /* Farbe Schrift: Schwarz */
aSFC_8 = ESC || "[38m"; /* Farbe Schrift: Schwarz */
aSFC_9 = ESC || "[39m"; /* Farbe Schrift: Schwarz */
aSBC_0 = ESC || "[40m"; /* Farbe Hinterg: Weiß */
aSBC_1 = ESC || "[41m"; /* Farbe Hinterg: Rot */
aSBC_2 = ESC || "[42m"; /* Farbe Hinterg: Grün */
aSBC_3 = ESC || "[43m"; /* Farbe Hinterg: Gelb */
aSBC_4 = ESC || "[44m"; /* Farbe Hinterg: Violett */
aSBC_5 = ESC || "[45m"; /* Farbe Hinterg: Magenta */
aSBC_6 = ESC || "[46m"; /* Farbe Hinterg: Zyan */
aSBC_7 = ESC || "[47m"; /* Farbe Hinterg: Schwarz */
aSBC_8 = ESC || "[48m"; /* Farbe Hinterg: Schwarz */
aSBC_9 = ESC || "[49m"; /* Farbe Hinterg: Schwarz */
aSHORP0 = ESC || "[0w"; /* Normale Zeichendichte */
aSHORP = ESC || "[2w"; /* Zeichend. "Elite" EIN */
aSHORP1 = ESC || "[1w"; /* Zeichend. "Elite" AUS */
aSHORP4 = ESC || "[4w"; /* Engschrift EIN */
aSHORP3 = ESC || "[3w"; /* Engschrift AUS */
aSHORP6 = ESC || "[6w"; /* Breitdruck EIN */
aSHORP5 = ESC || "[5w"; /* Breitdruck AUS */
aDEN6 = ESC || "[6"||'22'x||"z"; /* Schattendruck EIN */
aDEN5 = ESC || "[5"||'22'x||"z"; /* Schattendruck AUS */
aDEN4 = ESC || "[4"||'22'x||"z"; /* Doppeldruck EIN */
aDEN3 = ESC || "[3"||'22'x||"z"; /* Doppeldruck AUS */
aDEN2 = ESC || "[2"||'22'x||"z"; /* NLQ/LQ EIN */
aDEN1 = ESC || "[1"||'22'x||"z"; /* NLQ/LQ AUS */
aSUS2 = ESC || "[2v"; /* Hochstellung EIN */
aSUS1 = ESC || "[1v"; /* Hochstellung AUS */
aSUS4 = ESC || "[4v"; /* Tiefstellung EIN */
aSUS3 = ESC || "[3v"; /* Tiefstellung AUS */
aSUS0 = ESC || "[0v"; /* Zeile Zurück zu Normal */
aPLU = ESC || "1"; /* Textzeile nach oben */
aPLD = ESC || "K"; /* Textzeile nach unten */
aFNT0 = ESC || "(B"; /* Zeichensatz US */
aFNT1 = ESC || "(R"; /* Zeichensatz Französisch */
aFNT2 = ESC || "(K"; /* Zeichensatz Deutsch */
aFNT3 = ESC || "(A"; /* Zeichensatz GB */
aFNT4 = ESC || "(E"; /* Zeichensatz Dänisch I */
aFNT5 = ESC || "(H"; /* Zeichensatz Schwedisch */
aFNT6 = ESC || "(Y"; /* Zeichensatz Italienisch */
aFNT7 = ESC || "(Z"; /* Zeichensatz Spanisch */
aFNT8 = ESC || "(J"; /* Zeichensatz Japanisch */
aFNT9 = ESC || "(6"; /* Zeichensatz Norwegisch */
aFNT10 = ESC || "(C"; /* Zeichensatz Dänisch II */
aPROP2 = ESC || "[2p"; /* Proportionaldruck EIN */
aPROP1 = ESC || "[1p"; /* Proportionaldruck AUS */
aPROP0 = ESC || "[0p"; /* Proportionaldruck lösch.*/
aTSS = ESC; /* Rand Proport.d. setzen */
/* z.B. Rand5: aTSS || "5E"*/
aJFY5 = ESC || "[5 F"; /* Automat. linksbündig */
aJFY7 = ESC || "[7 F"; /* Automat. rechtsbünbünd. */
aJFY6 = ESC || "[6 F"; /* Automat. Randausgleich */
aJFY0 = ESC || "[0 F"; /* Automat. Formatier. AUS */
aJFY3 = ESC || "[3 F"; /* Zeichenabstand (format.)*/
aJFY1 = ESC || "[1 F"; /* Automat. Zentrieren */
aVERP0 = ESC || "[0z"; /* Zeilenabstand 1/8 Zoll */
aVERP1 = ESC || "[1z"; /* Zeilenabstand 1/6 Zoll */
aSLPP = ESC || "["; /* Seitenlänge, z.B. 66 Z. */
/* aSLPP || "66t" */
aPERF = ESC || "["; /* Perforation überspring. */
/* z.B. aPERF || "5q" */
aPERF0 = ESC || "[0q"; /* Perforation übespr. AUS */
aLMS = ESC || "#9"; /* Linken Rand setzen */
aRMS = ESC || "#0"; /* Rechten Rand setzen */
aTMS = ESC || "#8"; /* Oberen Rand setzen */
aBMS = ESC || "#2"; /* Unteren Rand setzen */
aSTBM = ESC || "["; /* Oberen und unteren Rand */
/* z.B. aSTBM || "5;66r" */
aSLRM = ESC || "["; /* Linken und rechten Rand */
/* z.B. aSLRM || "5;75s" */
aCAM = ESC || "#3"; /* Ränder löschen */
aHTS = ESC || "H"; /* Horizontaltabulator setz*/
aVTS = ESC || "J"; /* Vertikaltabulator setzen*/
aTBC0 = ESC || "[0g"; /* Horizontaltab. löschen */
aTBC3 = ESC || "[3g"; /* alle Horizontaltab. lös.*/
aTBC1 = ESC || "[1g"; /* Vertikaltab. löschen */
aTBC4 = ESC || "[4g"; /* alle Vertikaltab. lösch.*/
aTBCALL = ESC || "#4"; /* alle Tabulatoren löschen*/
aTBSALL = ESC || "#5"; /* Standardtab. setzen */
aEXTEND_1 = ESC || "[1"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_2 = ESC || "[2"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_3 = ESC || "[3"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_4 = ESC || "[4"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_5 = ESC || "[5"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_6 = ESC || "[6"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_7 = ESC || "[7"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_8 = ESC || "[8"||'22'x||"x"; /* Erweiterte Befehle */
aEXTEND_9 = ESC || "[9"||'22'x||"x"; /* Erweiterte Befehle */
aRAW_1 = ESC || "[1"||'22'x||"r"; /* Direkte Befehle */
aRAW_2 = ESC || "[2"||'22'x||"r"; /* Direkte Befehle */
aRAW_3 = ESC || "[3"||'22'x||"r"; /* Direkte Befehle */
aRAW_4 = ESC || "[4"||'22'x||"r"; /* Direkte Befehle */
aRAW_5 = ESC || "[5"||'22'x||"r"; /* Direkte Befehle */
aRAW_6 = ESC || "[6"||'22'x||"r"; /* Direkte Befehle */
aRAW_7 = ESC || "[7"||'22'x||"r"; /* Direkte Befehle */
aRAW_8 = ESC || "[8"||'22'x||"r"; /* Direkte Befehle */
aRAW_9 = ESC || "[9"||'22'x||"r"; /* Direkte Befehle */
Seite = 1;
ZZ_Start = 4;
ZZ_Max = 63;
ZZ = ZZ_Start;
w = 2;
wm = 1;
Gesamtsumme.0 = 0;
Gesamtsumme.1 = 0;
MWStSumme.0.0 = 0;
MWStSumme.0.1 = 0;
MWStSumme.1.0 = 0;
MWStSumme.1.1 = 0;
MWStSumme.2.0 = 0;
MWStSumme.2.1 = 0;
MWStSumme.3.0 = 0;
MWStSumme.3.1 = 0;
MWStSumme.4.0 = 0;
MWStSumme.4.1 = 0;
MWStSumme.5.0 = 0;
MWStSumme.5.1 = 0;
MWStSumme.6.0 = 0;
MWStSumme.6.1 = 0;
MWStSumme.7.0 = 0;
MWStSumme.7.1 = 0;
MWStSumme.8.0 = 0;
MWStSumme.8.1 = 0;
MWStSumme.9.0 = 0;
MWStSumme.9.1 = 0;
MWStSatz.0 = 0;
MWStSatz.1 = 0;
MWStSatz.2 = 0;
MWStSatz.3 = 0;
MWStSatz.4 = 0;
MWStSatz.5 = 0;
MWStSatz.6 = 0;
MWStSatz.7 = 0;
MWStSatz.8 = 0;
MWStSatz.9 = 0;
NeueSeite = aSGR1 || aSHORP3 || aSHORP1 || aSHORP6 || " Eingangsrechnungen (Netto)" || LF || LF || aSHORP5 || aSHORP4 || aSGR3;
NeueSeite = NeueSeite || " RechNr. Datum Lieferant Besteller" || LF;
NeueSeite = NeueSeite || " " || aSGR4 || " ArtikelN
